home *** CD-ROM | disk | FTP | other *** search
/ Imagination Express: Destination Pyramids / PYRAMIDS.ISO / DEMO / EDMARKDB / SHARED.DXR / 01031_version2 scripts.ls < prev    next >
Encoding:
Text File  |  1995-10-20  |  2.4 KB  |  110 lines
  1. on mouseUp
  2.   global gMousePatch, gAutoMode
  3.   set gAutoMode to 0
  4.   if not (the movieName contains "menu") then
  5.     if the movieName contains "MAININT" then
  6.       fadeMyVolume(3, 2, 2, 0, 0)
  7.       play done
  8.     else
  9.       if gMousePatch then
  10.         set gMousePatch to 0
  11.       else
  12.         set gMousePatch to 1
  13.         sound stop 1
  14.         sound stop 2
  15.         puppetSound(0)
  16.         alert("You have Paused the Demo." & RETURN & RETURN & "Press OK to continue...")
  17.         updateStage()
  18.         go(marker(0))
  19.       end if
  20.     end if
  21.   end if
  22. end
  23.  
  24. on setMyVolume theChannel, theMacVol, thePCVol
  25.   if machineType() < 255 then
  26.     set the volume of sound theChannel to theMacVol
  27.   else
  28.     set the volume of sound theChannel to thePCVol
  29.   end if
  30. end
  31.  
  32. on fadeMyVolume theChannel, theTime, theGrain, theLevelMac, theLevelPC
  33.   if machineType() < 255 then
  34.     set theLevel to theLevelMac
  35.   else
  36.     set theLevel to theLevelPC
  37.   end if
  38.   puppetTempo(theTime)
  39.   if theChannel = 3 then
  40.     repeat while (the volume of sound 1 > theLevel) or (the volume of sound 2 > theLevel)
  41.       if the volume of sound 1 > theLevel then
  42.         set the volume of sound 1 to the volume of sound 1 - theGrain
  43.       end if
  44.       if the volume of sound 2 > theLevel then
  45.         set the volume of sound 2 to the volume of sound 2 - theGrain
  46.       end if
  47.       pWait(theTime)
  48.     end repeat
  49.     if theLevel = 0 then
  50.       sound stop 1
  51.       sound stop 2
  52.     end if
  53.   else
  54.     repeat while the volume of sound theChannel > theLevel
  55.       set the volume of sound theChannel to the volume of sound theChannel - theGrain
  56.       pWait(theTime)
  57.     end repeat
  58.     if theLevel = 0 then
  59.       sound stop theChannel
  60.     end if
  61.   end if
  62. end
  63.  
  64. on doFancyCursor
  65.   repeat with nn = 1 to 5
  66.     cursor("fancyC" & nn)
  67.     pWait(30)
  68.   end repeat
  69. end
  70.  
  71. on pWait theTicks
  72.   set tmpTicks to the ticks
  73.   repeat while the ticks < (tmpTicks + theTicks)
  74.   end repeat
  75. end
  76.  
  77. on idle
  78.   global gCursorLoc
  79.   if not (the movieName contains "menu") then
  80.     set tmpMode to #Demo
  81.   else
  82.     set tmpMode to #menu
  83.   end if
  84.   if mouseLoc() = gCursorLoc then
  85.     if the timer > (3 * 60) then
  86.       if tmpMode = #Demo then
  87.         cursor(200)
  88.       end if
  89.     end if
  90.   else
  91.     cursor(0)
  92.     startTimer()
  93.     set the timeoutLapsed to 0
  94.   end if
  95.   set gCursorLoc to mouseLoc()
  96. end
  97.  
  98. on mouseLoc
  99.   return point(the mouseH, the mouseV)
  100. end
  101.  
  102. on autodemomode
  103.   if the movieName contains "menu" then
  104.     puppetSound(0)
  105.     autoGoDemo()
  106.   else
  107.     set the timeoutLapsed to 0
  108.   end if
  109. end
  110.